home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).do / FILE.COMBINER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  46 lines
  1. 5  TEXT : HOME : LIST 63000,: FOR I = 1 TO 23: VTAB I: PRINT "           ": NEXT I: VTAB 24: HTAB 1: PRINT "               [PRESS ANY KEY]";: GET X$: PRINT X$: HOME 
  2. 10  DIM A$(500),FI$(20): GOSUB 220: TEXT : HOME 
  3. 20 D$ =  CHR$(4):OP$ = D$ +"OPEN ":CL$ = D$ +"CLOSE ":RD$ = D$ +"READ ":WR$ = D$ +"WRITE ":AP$ = D$ +"APPEND ":NF = 1
  4. 30  HTAB 10: PRINT "MULTIPLE FILE JOIN": VTAB 5
  5. 40  PRINT "FILE # ";NF;: INPUT " ";FI$(NF): PRINT 
  6. 50  IF FI$(NF) = ""  THEN NF = NF -1: GOTO 70
  7. 60 NF = NF +1: GOTO 40
  8. 70  IF NF = 0  THEN NF = 1: GOTO 40
  9. 80  PRINT : INPUT "OUTPUT FILE NAME - ";FO$: PRINT 
  10. 90  FOR I = 1 TO NF: PRINT OP$;FI$(I): PRINT RD$;FI$(I):N = 1
  11. 100  &  GET I$
  12. 110  IF I$ = "@=@=@=@=@=@"  THEN 130
  13. 120 A$(N) = I$:N = N +1: GOTO 100
  14. 130 N = N -1: PRINT CL$;FI$(I)
  15. 140  IF I = 1  THEN  PRINT OP$;FO$: GOTO 160
  16. 150  PRINT AP$;FO$
  17. 160  PRINT WR$;FO$
  18. 170  FOR J = 1 TO N: PRINT A$(J): NEXT J
  19. 180  PRINT CL$;FO$: NEXT I
  20. 190  PRINT AP$;FO$: PRINT WR$;FO$: PRINT "@=@=@=@=@=@": PRINT CL$;FO$
  21. 200  END 
  22. 210  REM  POKE &GET ROUTINE
  23. 220  POKE 1013,76: POKE 1014,0: POKE 1015,3: FOR X1 = 768 TO 818: READ Y1: POKE X1,Y1: NEXT 
  24. 230  DATA  201,190,240,3,76,201,222,32,177,0,32,227,223,32,44,213,232,189,0,2,208,250,134,157,138,32,82,228,160,0,145,131,200,165,113,145,131,200,165,114,145,131,160,2,162,0,165,157,76,226,229
  25. 240  RETURN 
  26. 65535  REM *********************
  27. 65535  REM *      JOIN         *
  28. 65535  REM *    ------------   *
  29. 65535  REM * This program will *
  30. 65535  REM * take up to 20 text*
  31. 65535  REM * files and combine *
  32. 65535  REM * them into one out-*
  33. 65535  REM * put file. It will *
  34. 65535  REM *   work with any   *
  35. 65535  REM * EDITOR files, so  *
  36. 65535  REM * that you are not  *
  37. 65535  REM *  limited to 500   *
  38. 65535  REM * lines ....        *
  39. 65535  REM *   -------------   *
  40. 65535  REM *  Written by:      *
  41. 65535  REM * Dale E. Salyer    *
  42. 65535  REM * 101 E. 88th Ave.  *
  43. 65535  REM *    Apt. P-116     *
  44. 65535  REM * Thornton, CO.80229*
  45. 65535  REM *  303-430-8529     *
  46. 65535  REM *********************